home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / bmautodoc.raz < prev    next >
Text File  |  1994-06-04  |  848b  |  34 lines
  1. /** $VER: BMAutodoc.raz 1.0 (4.6.94)
  2.  **
  3.  ** Ajoute une marque pour chaque nom de fonction dans un fichier
  4.  ** au format autodoc standard, puis ouvre la palette des marques.
  5.  **/
  6.  
  7. OPTIONS RESULTS
  8.  
  9. /*------- Sauvegarde la position de départ --------*/
  10.  
  11. ReqClose Bookmarks      /* ferme la palette des marques */
  12.  
  13. Lock INPUT DISPLAY /*STATUS*/ ON
  14. GetPos; PARSE VAR RESULT startline startcol .
  15. Cursor 1 1
  16.  
  17. /*------- Parcoure les lignes du texte --------*/
  18.  
  19. DO FOREVER
  20.     Search RESET CONVERT '"\x0C"'; IF (RC >= 5) THEN BREAK
  21.     Search RESET '"/"';            IF (RC >= 5) THEN BREAK
  22.     GetWord NEXT; word = STRIP(RESULT)
  23.     IF LENGTH(word)~=0 THEN BMAdd word
  24. END
  25.  
  26. /*------- Restore la position de départ --------*/
  27.  
  28. Cursor startline startcol
  29. Lock INPUT DISPLAY /*STATUS*/ OFF
  30.  
  31. /*------- Ouvre la sélection flottante --------*/
  32.  
  33. ReqOpen Bookmarks
  34.